home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n12.arc / SUBSCR.WFW < prev    next >
Text File  |  1991-05-30  |  799b  |  22 lines
  1. Sub MAIN
  2. REM     All macros must begin with Sub MAIN.
  3. FormatDefineStyles StyleName$()
  4. REM     Define a new style based on the current style.
  5. Dim dlg As FormatDefineStylesChar
  6. REM     Set the variable "dlg" as the current character style.
  7. GetCurValues dlg
  8. REM     Store the current values of "dlg" in DialogRecord.
  9. If SubScript() Then
  10. REM     If SubScript is on, then...
  11. FormatCharacter .Points = dlg.Points, .Position = 0
  12. REM     Format the currently selected text to be set as defined 
  13. REM     in "dlg".
  14. Else
  15. REM     Otherwise...
  16. FormatCharacter .Points = Val(dlg.Points) - 2, .Position = "-1.5pt"
  17. REM     Format the currently selected text to be two points
  18. REM     smaller than as defined in "dlg" and positioned 1.5 points
  19. REM     below the current baseline.
  20. End If
  21. End Sub
  22.